﻿Public Class oReferenceValue
    Public Function GetReferenceValueByValue(ByVal dataBaseName As String, ByVal value As String) As DataSet
        Dim connect As New Connection()
        Try
            Dim ds As New DataSet("oCustomerProperty")
            Dim errMsg As String = connect.setSQLDB(dataBaseName)
            If errMsg.Length = 0 Then
                Dim query As New StringBuilder
                query.Append("SELECT * FROM oReferenceValue WHERE ReferenceCode = @Param1  ")
                ds = connect.ObjectGetAll_Query_SAP(query.ToString(), New Object() {value})
            End If
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
